home *** CD-ROM | disk | FTP | other *** search
/ Vypalování CD / Vypalovani-CD-cd2.bin / Music Organizer Deluxe 1.9 / _SETUP.1 / Deluxe.exe / 0 / RCDATA / TEFFECTPREV / TEFFECTPREV.txt
Text File  |  2002-05-01  |  74KB  |  3,175 lines

  1. object EffectPrev: TEffectPrev
  2.   Left = 277
  3.   Top = 192
  4.   ActiveControl = OKBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'Effects Preview'
  7.   ClientHeight = 250
  8.   ClientWidth = 458
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Undo: TButton
  19.     Left = 212
  20.     Top = 19
  21.     Width = 89
  22.     Height = 33
  23.     Hint = '4 undo levels'
  24.     Caption = 'Undo'
  25.     ParentShowHint = False
  26.     ShowHint = True
  27.     TabOrder = 3
  28.     OnClick = UndoClick
  29.   end
  30.   object ButtonPanel: TPanel
  31.     Left = 353
  32.     Top = 0
  33.     Width = 105
  34.     Height = 229
  35.     Align = alRight
  36.     BevelOuter = bvNone
  37.     TabOrder = 1
  38.     object CBG: TGauge
  39.       Left = 13
  40.       Top = 197
  41.       Width = 81
  42.       Height = 19
  43.       Kind = gkNeedle
  44.       BorderStyle = bsNone
  45.       ForeColor = clNavy
  46.       BackColor = clBtnFace
  47.       Progress = 0
  48.     end
  49.     object OKBtn: TBitBtn
  50.       Left = 6
  51.       Top = 2
  52.       Width = 97
  53.       Height = 27
  54.       Font.Color = clBlack
  55.       Font.Height = -11
  56.       Font.Name = 'MS Sans Serif'
  57.       Font.Style = []
  58.       ParentFont = False
  59.       ParentShowHint = False
  60.       ShowHint = True
  61.       TabOrder = 0
  62.       OnClick = OKBtnClick
  63.       Kind = bkOK
  64.       Margin = 2
  65.       Style = bsNew
  66.       Spacing = -1
  67.       IsControl = True
  68.     end
  69.     object CancelBtn: TBitBtn
  70.       Left = 6
  71.       Top = 30
  72.       Width = 97
  73.       Height = 27
  74.       Font.Color = clBlack
  75.       Font.Height = -11
  76.       Font.Name = 'MS Sans Serif'
  77.       Font.Style = []
  78.       ParentFont = False
  79.       ParentShowHint = False
  80.       ShowHint = True
  81.       TabOrder = 1
  82.       OnClick = CancelBtnClick
  83.       Kind = bkCancel
  84.       Margin = 2
  85.       Style = bsNew
  86.       Spacing = -1
  87.       IsControl = True
  88.     end
  89.     object Button1: TButton
  90.       Left = 6
  91.       Top = 58
  92.       Width = 97
  93.       Height = 27
  94.       Hint = 'Reload the image'
  95.       Caption = 'Reload'
  96.       Font.Color = clBlack
  97.       Font.Height = -11
  98.       Font.Name = 'MS Sans Serif'
  99.       Font.Style = []
  100.       ParentFont = False
  101.       ParentShowHint = False
  102.       ShowHint = True
  103.       TabOrder = 2
  104.       OnClick = copyit
  105.     end
  106.     object DitherC: TCheckBox
  107.       Left = 7
  108.       Top = 167
  109.       Width = 91
  110.       Height = 17
  111.       Caption = 'Dither Image'
  112.       Font.Color = clBlack
  113.       Font.Height = -11
  114.       Font.Name = 'MS Sans Serif'
  115.       Font.Style = []
  116.       ParentFont = False
  117.       ParentShowHint = False
  118.       ShowHint = True
  119.       TabOrder = 3
  120.       Visible = False
  121.       OnClick = DitherCClick
  122.     end
  123.     object Button2: TButton
  124.       Left = 6
  125.       Top = 93
  126.       Width = 97
  127.       Height = 27
  128.       Hint = 'Generate a Check Board Image'
  129.       Caption = 'CheckBoard'
  130.       Font.Color = clBlack
  131.       Font.Height = -11
  132.       Font.Name = 'MS Sans Serif'
  133.       Font.Style = []
  134.       ParentFont = False
  135.       ParentShowHint = False
  136.       ShowHint = True
  137.       TabOrder = 4
  138.       OnClick = Button2Click
  139.     end
  140.     object CheckBoardtype: TCheckBox
  141.       Left = 6
  142.       Top = 122
  143.       Width = 79
  144.       Height = 17
  145.       Hint = 'Checked is bottom squeezed'
  146.       Caption = 'Board Type'
  147.       Font.Color = clBlack
  148.       Font.Height = -11
  149.       Font.Name = 'MS Sans Serif'
  150.       Font.Style = []
  151.       ParentFont = False
  152.       ParentShowHint = False
  153.       ShowHint = True
  154.       TabOrder = 5
  155.     end
  156.     object CheckerSize: TScrollBar
  157.       Left = 4
  158.       Top = 145
  159.       Width = 99
  160.       Height = 9
  161.       Hint = 'Check Block Size'
  162.       Max = 60
  163.       Min = 3
  164.       ParentShowHint = False
  165.       Position = 12
  166.       ShowHint = True
  167.       TabOrder = 6
  168.     end
  169.   end
  170.   object TabSet: TTabSet
  171.     Left = 0
  172.     Top = 229
  173.     Width = 458
  174.     Height = 21
  175.     Align = alBottom
  176.     Font.Color = clWindowText
  177.     Font.Height = -11
  178.     Font.Name = 'MS Sans Serif'
  179.     Font.Style = []
  180.     OnClick = TabSetClick
  181.   end
  182.   object Notebook: TNotebook
  183.     Left = 0
  184.     Top = 0
  185.     Width = 353
  186.     Height = 229
  187.     Align = alClient
  188.     Font.Color = clBlack
  189.     Font.Height = -11
  190.     Font.Name = 'MS Sans Serif'
  191.     Font.Style = []
  192.     PageIndex = 14
  193.     ParentFont = False
  194.     TabOrder = 0
  195.     OnPageChanged = NotebookPageChanged
  196.     IsControl = True
  197.     object TPage
  198.       Left = 0
  199.       Top = 0
  200.       Caption = 'AutoContrast'
  201.       object GroupBox28: TGroupBox
  202.         Left = 7
  203.         Top = 10
  204.         Width = 333
  205.         Height = 200
  206.         Caption = 'Automatic Contrast'
  207.         TabOrder = 0
  208.         IsControl = True
  209.         object Label45: TLabel
  210.           Left = 9
  211.           Top = 164
  212.           Width = 140
  213.           Height = 13
  214.           Caption = 'Drag Mouse to select an area'
  215.         end
  216.         object AutoContrast: TBitBtn
  217.           Left = 206
  218.           Top = 136
  219.           Width = 89
  220.           Height = 33
  221.           Caption = 'Preview'
  222.           Enabled = False
  223.           TabOrder = 0
  224.           OnClick = AutoContrastClick
  225.           Style = bsNew
  226.         end
  227.         object AUTOOK: TCheckBox
  228.           Left = 209
  229.           Top = 176
  230.           Width = 93
  231.           Height = 17
  232.           Caption = 'Contrast on ok'
  233.           TabOrder = 1
  234.           OnClick = AUTOOKClick
  235.         end
  236.       end
  237.     end
  238.     object TPage
  239.       Left = 0
  240.       Top = 0
  241.       Caption = 'Bleed'
  242.       object GroupBox19: TGroupBox
  243.         Left = 7
  244.         Top = 10
  245.         Width = 333
  246.         Height = 200
  247.         Caption = 'Bleed Image'
  248.         TabOrder = 0
  249.         IsControl = True
  250.         object Label27: TLabel
  251.           Left = 221
  252.           Top = 80
  253.           Width = 45
  254.           Height = 13
  255.           Caption = 'Value = 0'
  256.         end
  257.         object Bleed: TBitBtn
  258.           Left = 206
  259.           Top = 136
  260.           Width = 89
  261.           Height = 33
  262.           Caption = 'Preview'
  263.           TabOrder = 0
  264.           OnClick = BleedClick
  265.           Style = bsNew
  266.         end
  267.         object BleedBar: TScrollBar
  268.           Left = 180
  269.           Top = 105
  270.           Width = 135
  271.           Height = 11
  272.           Hint = 'Value'
  273.           Max = 255
  274.           Min = -255
  275.           ParentShowHint = False
  276.           ShowHint = True
  277.           TabOrder = 1
  278.           OnChange = BleedBarChange
  279.         end
  280.       end
  281.     end
  282.     object TPage
  283.       Left = 0
  284.       Top = 0
  285.       Caption = 'Border'
  286.       object GroupBox34: TGroupBox
  287.         Left = 7
  288.         Top = 10
  289.         Width = 333
  290.         Height = 200
  291.         Caption = 'Border'
  292.         TabOrder = 0
  293.         IsControl = True
  294.         object Label43: TLabel
  295.           Left = 272
  296.           Top = 84
  297.           Width = 31
  298.           Height = 13
  299.           Caption = 'Shape'
  300.         end
  301.         object Label44: TLabel
  302.           Left = 168
  303.           Top = 84
  304.           Width = 25
  305.           Height = 13
  306.           Caption = 'Edge'
  307.         end
  308.         object Label66: TLabel
  309.           Left = 219
  310.           Top = 121
  311.           Width = 36
  312.           Height = 13
  313.           Caption = 'Vectors'
  314.           Visible = False
  315.         end
  316.         object Label68: TLabel
  317.           Left = 274
  318.           Top = 121
  319.           Width = 42
  320.           Height = 13
  321.           Caption = 'Vec Size'
  322.           Visible = False
  323.         end
  324.         object Label69: TLabel
  325.           Left = 169
  326.           Top = 121
  327.           Width = 27
  328.           Height = 13
  329.           Caption = 'Angle'
  330.           Visible = False
  331.         end
  332.         object ShapeEdge: TSpinEdit
  333.           Left = 168
  334.           Top = 99
  335.           Width = 49
  336.           Height = 22
  337.           MaxValue = 60
  338.           MinValue = 0
  339.           ParentShowHint = False
  340.           ShowHint = True
  341.           TabOrder = 0
  342.           Value = 0
  343.           OnChange = ShapeEdgeChange
  344.         end
  345.         object MaskColorBtn: TButton
  346.           Left = 242
  347.           Top = 54
  348.           Width = 75
  349.           Height = 25
  350.           Caption = 'Mask Color'
  351.           Enabled = False
  352.           ParentShowHint = False
  353.           ShowHint = True
  354.           TabOrder = 1
  355.           OnClick = MaskColorBtnClick
  356.         end
  357.         object BOnOk: TCheckBox
  358.           Left = 216
  359.           Top = 169
  360.           Width = 97
  361.           Height = 17
  362.           Caption = 'Border On Ok'
  363.           TabOrder = 2
  364.         end
  365.         object FCol: TCheckBox
  366.           Left = 165
  367.           Top = 60
  368.           Width = 73
  369.           Height = 17
  370.           Caption = 'Form Color'
  371.           ParentShowHint = False
  372.           ShowHint = True
  373.           State = cbChecked
  374.           TabOrder = 3
  375.           OnClick = FColClick
  376.         end
  377.         object BVector: TSpinEdit
  378.           Left = 220
  379.           Top = 136
  380.           Width = 49
  381.           Height = 22
  382.           Increment = 2
  383.           MaxValue = 100
  384.           MinValue = 0
  385.           ParentShowHint = False
  386.           ShowHint = True
  387.           TabOrder = 4
  388.           Value = 10
  389.           Visible = False
  390.           OnChange = BVectorChange
  391.         end
  392.         object BVectorPercent: TSpinEdit
  393.           Left = 274
  394.           Top = 136
  395.           Width = 49
  396.           Height = 22
  397.           MaxValue = 100
  398.           MinValue = 0
  399.           ParentShowHint = False
  400.           ShowHint = True
  401.           TabOrder = 5
  402.           Value = 50
  403.           Visible = False
  404.           OnChange = BVectorPercentChange
  405.         end
  406.         object BAngle: TSpinEdit
  407.           Left = 168
  408.           Top = 136
  409.           Width = 49
  410.           Height = 22
  411.           MaxValue = 359
  412.           MinValue = 0
  413.           ParentShowHint = False
  414.           ShowHint = True
  415.           TabOrder = 6
  416.           Value = 90
  417.           Visible = False
  418.           OnChange = BAngleChange
  419.         end
  420.         object BShapeCombo: TComboBox
  421.           Left = 222
  422.           Top = 98
  423.           Width = 103
  424.           Height = 21
  425.           Style = csDropDownList
  426.           ItemHeight = 13
  427.           Items.Strings = (
  428.             'None'
  429.             'Rectangle'
  430.             'Square'
  431.             'RoundRect'
  432.             'RoundSquare'
  433.             'Ellipse'
  434.             'Circle'
  435.             'TriangleLeft'
  436.             'TriangleRight'
  437.             'TriangleUp'
  438.             'TriangleDown'
  439.             'Diamond'
  440.             'Star'
  441.             'PolyGon')
  442.           ParentShowHint = False
  443.           ShowHint = True
  444.           TabOrder = 7
  445.           OnChange = ShapeEdit1Change
  446.         end
  447.       end
  448.     end
  449.     object TPage
  450.       Left = 0
  451.       Top = 0
  452.       Caption = 'Border Fade'
  453.       object GroupBox37: TGroupBox
  454.         Left = 7
  455.         Top = 10
  456.         Width = 333
  457.         Height = 200
  458.         Caption = 'Border Fade'
  459.         TabOrder = 0
  460.         IsControl = True
  461.         object Label67: TLabel
  462.           Left = 232
  463.           Top = 103
  464.           Width = 25
  465.           Height = 13
  466.           Caption = 'Edge'
  467.         end
  468.         object FadeBorderValue: TSpinEdit
  469.           Left = 230
  470.           Top = 127
  471.           Width = 49
  472.           Height = 22
  473.           MaxValue = 1000
  474.           MinValue = 1
  475.           TabOrder = 0
  476.           Value = 1
  477.           OnChange = FadeBorderValueChange
  478.         end
  479.         object FadeColorCustom: TButton
  480.           Left = 242
  481.           Top = 63
  482.           Width = 75
  483.           Height = 25
  484.           Caption = 'Color'
  485.           Enabled = False
  486.           TabOrder = 1
  487.           OnClick = FadeColorCustomClick
  488.         end
  489.         object FadeBorderOnOk: TCheckBox
  490.           Left = 216
  491.           Top = 160
  492.           Width = 97
  493.           Height = 17
  494.           Caption = 'Border On Ok'
  495.           TabOrder = 2
  496.         end
  497.         object FadeBorder: TCheckBox
  498.           Left = 165
  499.           Top = 69
  500.           Width = 73
  501.           Height = 17
  502.           Caption = 'Form Color'
  503.           State = cbChecked
  504.           TabOrder = 3
  505.           OnClick = FadeBorderClick
  506.         end
  507.       end
  508.     end
  509.     object TPage
  510.       Left = 0
  511.       Top = 0
  512.       Caption = 'Blur'
  513.       object GroupBox9: TGroupBox
  514.         Left = 7
  515.         Top = 10
  516.         Width = 333
  517.         Height = 200
  518.         Caption = 'Blur Image'
  519.         TabOrder = 0
  520.         IsControl = True
  521.         object Label2: TLabel
  522.           Left = 219
  523.           Top = 80
  524.           Width = 45
  525.           Height = 13
  526.           Caption = 'Value = 0'
  527.         end
  528.         object Label47: TLabel
  529.           Left = 9
  530.           Top = 164
  531.           Width = 140
  532.           Height = 13
  533.           Caption = 'Drag Mouse to select an area'
  534.         end
  535.         object Blur: TBitBtn
  536.           Left = 206
  537.           Top = 144
  538.           Width = 89
  539.           Height = 33
  540.           Caption = 'Preview'
  541.           TabOrder = 0
  542.           OnClick = BlurClick
  543.           Style = bsNew
  544.         end
  545.         object BlurBar: TScrollBar
  546.           Left = 180
  547.           Top = 100
  548.           Width = 135
  549.           Height = 11
  550.           Hint = 'Value'
  551.           ParentShowHint = False
  552.           ShowHint = True
  553.           TabOrder = 1
  554.           OnChange = BlurBarChange
  555.         end
  556.       end
  557.     end
  558.     object TPage
  559.       Left = 0
  560.       Top = 0
  561.       Caption = 'Bright/Dark'
  562.       IsControl = True
  563.       object GroupBox2: TGroupBox
  564.         Left = 7
  565.         Top = 10
  566.         Width = 333
  567.         Height = 200
  568.         Caption = 'Bright / Dark'
  569.         TabOrder = 0
  570.         IsControl = True
  571.         object Label7: TLabel
  572.           Left = 219
  573.           Top = 80
  574.           Width = 45
  575.           Height = 13
  576.           Caption = 'Value = 0'
  577.         end
  578.         object Bright: TBitBtn
  579.           Left = 206
  580.           Top = 136
  581.           Width = 89
  582.           Height = 33
  583.           Caption = 'Preview'
  584.           TabOrder = 0
  585.           OnClick = BrightClick
  586.           Style = bsNew
  587.         end
  588.         object BDIEdit: TScrollBar
  589.           Left = 180
  590.           Top = 108
  591.           Width = 135
  592.           Height = 11
  593.           Hint = 'Value'
  594.           Max = 255
  595.           Min = -255
  596.           ParentShowHint = False
  597.           ShowHint = True
  598.           TabOrder = 1
  599.           OnChange = BDIEditChange
  600.         end
  601.       end
  602.     end
  603.     object TPage
  604.       Left = 0
  605.       Top = 0
  606.       Caption = 'Color'
  607.       object GroupBox7: TGroupBox
  608.         Left = 7
  609.         Top = 10
  610.         Width = 333
  611.         Height = 200
  612.         Caption = 'Color Reduction'
  613.         TabOrder = 0
  614.         IsControl = True
  615.         object Label5: TLabel
  616.           Left = 180
  617.           Top = 184
  618.           Width = 80
  619.           Height = 13
  620.           Caption = 'Number of colors'
  621.         end
  622.         object Reduce: TBitBtn
  623.           Left = 206
  624.           Top = 127
  625.           Width = 89
  626.           Height = 33
  627.           Caption = 'Preview'
  628.           TabOrder = 0
  629.           OnClick = ReduceClick
  630.           Style = bsNew
  631.         end
  632.         object R1: TRadioButton
  633.           Left = 208
  634.           Top = 60
  635.           Width = 91
  636.           Height = 17
  637.           Hint = 'Dither Method'
  638.           Caption = 'Bayer'
  639.           Checked = True
  640.           ParentShowHint = False
  641.           ShowHint = True
  642.           TabOrder = 1
  643.           TabStop = True
  644.         end
  645.         object R2: TRadioButton
  646.           Left = 208
  647.           Top = 91
  648.           Width = 91
  649.           Height = 17
  650.           Hint = 'Dither Method'
  651.           Caption = 'Burkes'
  652.           ParentShowHint = False
  653.           ShowHint = True
  654.           TabOrder = 2
  655.         end
  656.         object R3: TRadioButton
  657.           Left = 208
  658.           Top = 76
  659.           Width = 91
  660.           Height = 17
  661.           Hint = 'Dither Method'
  662.           Caption = 'Floyed'
  663.           ParentShowHint = False
  664.           ShowHint = True
  665.           TabOrder = 3
  666.         end
  667.         object R4: TRadioButton
  668.           Left = 208
  669.           Top = 107
  670.           Width = 109
  671.           Height = 17
  672.           Hint = 'Dither Method'
  673.           Caption = 'GrayScale'
  674.           ParentShowHint = False
  675.           ShowHint = True
  676.           TabOrder = 4
  677.           OnClick = R4Click
  678.         end
  679.         object Numcolors: TScrollBar
  680.           Left = 181
  681.           Top = 168
  682.           Width = 135
  683.           Height = 11
  684.           Hint = 'Number of colors'
  685.           Max = 255
  686.           ParentShowHint = False
  687.           ShowHint = True
  688.           TabOrder = 5
  689.           OnChange = NumcolorsChange
  690.         end
  691.       end
  692.     end
  693.     object TPage
  694.       Left = 0
  695.       Top = 0
  696.       Caption = 'Curl Page'
  697.       object GroupBox21: TGroupBox
  698.         Left = 7
  699.         Top = 10
  700.         Width = 333
  701.         Height = 200
  702.         Caption = 'Curl Page Effect'
  703.         TabOrder = 0
  704.         IsControl = True
  705.         object Label48: TLabel
  706.           Left = 9
  707.           Top = 164
  708.           Width = 140
  709.           Height = 13
  710.           Caption = 'Drag Mouse to select an area'
  711.         end
  712.         object Curl: TBitBtn
  713.           Left = 161
  714.           Top = 135
  715.           Width = 53
  716.           Height = 43
  717.           Caption = 'Preview'
  718.           Enabled = False
  719.           ParentShowHint = False
  720.           ShowHint = True
  721.           TabOrder = 0
  722.           OnClick = CurlClick
  723.           Style = bsNew
  724.         end
  725.         object GroupBox22: TGroupBox
  726.           Left = 260
  727.           Top = 130
  728.           Width = 62
  729.           Height = 48
  730.           Caption = 'Location '
  731.           TabOrder = 1
  732.           object C_RT: TRadioButton
  733.             Left = 36
  734.             Top = 13
  735.             Width = 20
  736.             Height = 17
  737.             Hint = 'Right Top'
  738.             ParentShowHint = False
  739.             ShowHint = True
  740.             TabOrder = 0
  741.           end
  742.           object C_LT: TRadioButton
  743.             Left = 8
  744.             Top = 13
  745.             Width = 17
  746.             Height = 17
  747.             Hint = 'Left Top'
  748.             Checked = True
  749.             ParentShowHint = False
  750.             ShowHint = True
  751.             TabOrder = 1
  752.             TabStop = True
  753.           end
  754.           object C_LB: TRadioButton
  755.             Left = 8
  756.             Top = 29
  757.             Width = 18
  758.             Height = 17
  759.             Hint = 'Left Bottom'
  760.             ParentShowHint = False
  761.             ShowHint = True
  762.             TabOrder = 2
  763.           end
  764.           object C_RB: TRadioButton
  765.             Left = 36
  766.             Top = 29
  767.             Width = 17
  768.             Height = 17
  769.             Hint = 'Right Bottom'
  770.             ParentShowHint = False
  771.             ShowHint = True
  772.             TabOrder = 3
  773.           end
  774.         end
  775.         object GroupBox23: TGroupBox
  776.           Left = 214
  777.           Top = 130
  778.           Width = 46
  779.           Height = 48
  780.           Caption = 'Orient.'
  781.           ParentShowHint = False
  782.           ShowHint = True
  783.           TabOrder = 2
  784.           object C_OH: TRadioButton
  785.             Left = 15
  786.             Top = 13
  787.             Width = 17
  788.             Height = 17
  789.             Hint = 'Horizonal Curl'
  790.             Checked = True
  791.             ParentShowHint = False
  792.             ShowHint = True
  793.             TabOrder = 0
  794.             TabStop = True
  795.           end
  796.           object C_OV: TRadioButton
  797.             Left = 15
  798.             Top = 29
  799.             Width = 18
  800.             Height = 17
  801.             Hint = 'Vertical Curl'
  802.             ParentShowHint = False
  803.             ShowHint = True
  804.             TabOrder = 1
  805.           end
  806.         end
  807.         object CurlBC: TBitBtn
  808.           Left = 242
  809.           Top = 100
  810.           Width = 79
  811.           Height = 31
  812.           Caption = 'F-Color'
  813.           ParentShowHint = False
  814.           ShowHint = True
  815.           TabOrder = 3
  816.           OnClick = CurlBCClick
  817.           Style = bsNew
  818.         end
  819.         object CurlFC: TBitBtn
  820.           Left = 161
  821.           Top = 100
  822.           Width = 79
  823.           Height = 31
  824.           Caption = 'B-Color'
  825.           ParentShowHint = False
  826.           ShowHint = True
  827.           TabOrder = 4
  828.           OnClick = CurlFCClick
  829.           Style = bsNew
  830.         end
  831.         object GroupBox24: TGroupBox
  832.           Left = 161
  833.           Top = 66
  834.           Width = 77
  835.           Height = 31
  836.           Caption = 'Shading'
  837.           ParentShowHint = False
  838.           ShowHint = True
  839.           TabOrder = 5
  840.           object B_CUBC: TRadioButton
  841.             Left = 51
  842.             Top = 12
  843.             Width = 17
  844.             Height = 17
  845.             Hint = 'Use Backgroun color'
  846.             ParentShowHint = False
  847.             ShowHint = True
  848.             TabOrder = 0
  849.           end
  850.           object B_CUFC: TRadioButton
  851.             Left = 9
  852.             Top = 12
  853.             Width = 18
  854.             Height = 17
  855.             Hint = 'Use foreground color'
  856.             Checked = True
  857.             ParentShowHint = False
  858.             ShowHint = True
  859.             TabOrder = 1
  860.             TabStop = True
  861.           end
  862.         end
  863.         object FCC: TGroupBox
  864.           Left = 243
  865.           Top = 66
  866.           Width = 77
  867.           Height = 31
  868.           Caption = 'Background'
  869.           ParentShowHint = False
  870.           ShowHint = True
  871.           TabOrder = 6
  872.           object B_CFC: TRadioButton
  873.             Left = 49
  874.             Top = 12
  875.             Width = 17
  876.             Height = 17
  877.             Hint = 'Use Backgroun color'
  878.             ParentShowHint = False
  879.             ShowHint = True
  880.             TabOrder = 0
  881.           end
  882.           object B_CBC: TRadioButton
  883.             Left = 12
  884.             Top = 12
  885.             Width = 18
  886.             Height = 17
  887.             Hint = 'Use foreground color'
  888.             Checked = True
  889.             ParentShowHint = False
  890.             ShowHint = True
  891.             TabOrder = 1
  892.             TabStop = True
  893.           end
  894.         end
  895.         object C_Trans: TCheckBox
  896.           Left = 160
  897.           Top = 48
  898.           Width = 78
  899.           Height = 17
  900.           Hint = 'Keep Image'
  901.           Caption = 'Keep Image'
  902.           ParentShowHint = False
  903.           ShowHint = True
  904.           TabOrder = 7
  905.         end
  906.         object CShade: TCheckBox
  907.           Left = 239
  908.           Top = 48
  909.           Width = 49
  910.           Height = 17
  911.           Hint = 'Shade Under Curl'
  912.           Caption = 'Shade'
  913.           ParentShowHint = False
  914.           ShowHint = True
  915.           State = cbChecked
  916.           TabOrder = 8
  917.         end
  918.         object Value: TSpinEdit
  919.           Left = 288
  920.           Top = 46
  921.           Width = 31
  922.           Height = 22
  923.           Hint = 'Shading transparancy'
  924.           MaxValue = 5
  925.           MinValue = 1
  926.           ParentShowHint = False
  927.           ShowHint = True
  928.           TabOrder = 9
  929.           Value = 4
  930.         end
  931.       end
  932.       object CONOK: TCheckBox
  933.         Left = 167
  934.         Top = 192
  935.         Width = 89
  936.         Height = 15
  937.         Caption = 'Curl On OK'
  938.         ParentShowHint = False
  939.         ShowHint = True
  940.         TabOrder = 1
  941.         OnClick = CONOKClick
  942.       end
  943.     end
  944.     object TPage
  945.       Left = 0
  946.       Top = 0
  947.       Caption = 'Edge Detection'
  948.       object GroupBox32: TGroupBox
  949.         Left = 7
  950.         Top = 10
  951.         Width = 333
  952.         Height = 200
  953.         Caption = 'Edge Detection'
  954.         TabOrder = 0
  955.         IsControl = True
  956.         object Label132: TLabel
  957.           Left = 219
  958.           Top = 80
  959.           Width = 45
  960.           Height = 13
  961.           Caption = 'Value = 1'
  962.         end
  963.         object Label49: TLabel
  964.           Left = 9
  965.           Top = 164
  966.           Width = 140
  967.           Height = 13
  968.           Caption = 'Drag Mouse to select an area'
  969.         end
  970.         object Edgebtn: TBitBtn
  971.           Left = 206
  972.           Top = 136
  973.           Width = 89
  974.           Height = 33
  975.           Caption = 'Preview'
  976.           TabOrder = 0
  977.           OnClick = EdgebtnClick
  978.           Style = bsNew
  979.         end
  980.         object EdgeBar: TScrollBar
  981.           Left = 180
  982.           Top = 108
  983.           Width = 135
  984.           Height = 11
  985.           Hint = 'Value'
  986.           Min = 1
  987.           ParentShowHint = False
  988.           Position = 1
  989.           ShowHint = True
  990.           TabOrder = 1
  991.           OnChange = EdgeBarChange
  992.         end
  993.       end
  994.     end
  995.     object TPage
  996.       Left = 0
  997.       Top = 0
  998.       Caption = 'Engrave'
  999.       object GroupBox10: TGroupBox
  1000.         Left = 7
  1001.         Top = 10
  1002.         Width = 333
  1003.         Height = 200
  1004.         Caption = 'Engrave Image'
  1005.         TabOrder = 0
  1006.         IsControl = True
  1007.         object Label9: TLabel
  1008.           Left = 219
  1009.           Top = 80
  1010.           Width = 45
  1011.           Height = 13
  1012.           Caption = 'Value = 0'
  1013.         end
  1014.         object Label50: TLabel
  1015.           Left = 9
  1016.           Top = 164
  1017.           Width = 140
  1018.           Height = 13
  1019.           Caption = 'Drag Mouse to select an area'
  1020.         end
  1021.         object Engrave: TBitBtn
  1022.           Left = 206
  1023.           Top = 144
  1024.           Width = 89
  1025.           Height = 33
  1026.           Caption = 'Preview'
  1027.           TabOrder = 0
  1028.           OnClick = EngraveClick
  1029.           Style = bsNew
  1030.         end
  1031.         object EngBar: TScrollBar
  1032.           Left = 180
  1033.           Top = 108
  1034.           Width = 135
  1035.           Height = 11
  1036.           Hint = 'Value'
  1037.           Max = 10
  1038.           ParentShowHint = False
  1039.           ShowHint = True
  1040.           TabOrder = 1
  1041.           OnChange = EngBarChange
  1042.         end
  1043.       end
  1044.     end
  1045.     object TPage
  1046.       Left = 0
  1047.       Top = 0
  1048.       Caption = 'Enhance'
  1049.       object GroupBox15: TGroupBox
  1050.         Left = 7
  1051.         Top = 10
  1052.         Width = 333
  1053.         Height = 200
  1054.         Caption = 'Enhance Image'
  1055.         TabOrder = 0
  1056.         IsControl = True
  1057.         object Label18: TLabel
  1058.           Left = 189
  1059.           Top = 47
  1060.           Width = 59
  1061.           Height = 13
  1062.           Caption = 'Gamma Red'
  1063.         end
  1064.         object Label20: TLabel
  1065.           Left = 251
  1066.           Top = 47
  1067.           Width = 68
  1068.           Height = 13
  1069.           Caption = 'Gamma Green'
  1070.         end
  1071.         object Label21: TLabel
  1072.           Left = 189
  1073.           Top = 82
  1074.           Width = 60
  1075.           Height = 13
  1076.           Caption = 'Gamma Blue'
  1077.         end
  1078.         object Label22: TLabel
  1079.           Left = 256
  1080.           Top = 83
  1081.           Width = 27
  1082.           Height = 13
  1083.           Caption = 'Brigth'
  1084.         end
  1085.         object Label23: TLabel
  1086.           Left = 193
  1087.           Top = 127
  1088.           Width = 39
  1089.           Height = 13
  1090.           Hint = 'gauss or uniform'
  1091.           Caption = 'Contrast'
  1092.         end
  1093.         object Label51: TLabel
  1094.           Left = 9
  1095.           Top = 164
  1096.           Width = 140
  1097.           Height = 13
  1098.           Caption = 'Drag Mouse to select an area'
  1099.         end
  1100.         object Enhance: TBitBtn
  1101.           Left = 193
  1102.           Top = 148
  1103.           Width = 89
  1104.           Height = 29
  1105.           Caption = 'Preview'
  1106.           Enabled = False
  1107.           ParentShowHint = False
  1108.           ShowHint = True
  1109.           TabOrder = 0
  1110.           OnClick = EnhanceClick
  1111.           Style = bsNew
  1112.         end
  1113.         object EnhRed: TSpinEdit
  1114.           Left = 192
  1115.           Top = 60
  1116.           Width = 57
  1117.           Height = 22
  1118.           MaxValue = 255
  1119.           MinValue = 0
  1120.           ParentShowHint = False
  1121.           ShowHint = True
  1122.           TabOrder = 1
  1123.           Value = 10
  1124.         end
  1125.         object EnhGreen: TSpinEdit
  1126.           Left = 256
  1127.           Top = 60
  1128.           Width = 57
  1129.           Height = 22
  1130.           MaxValue = 255
  1131.           MinValue = 0
  1132.           ParentShowHint = False
  1133.           ShowHint = True
  1134.           TabOrder = 2
  1135.           Value = 10
  1136.         end
  1137.         object EnhBlue: TSpinEdit
  1138.           Left = 192
  1139.           Top = 96
  1140.           Width = 57
  1141.           Height = 22
  1142.           MaxValue = 255
  1143.           MinValue = 0
  1144.           ParentShowHint = False
  1145.           ShowHint = True
  1146.           TabOrder = 3
  1147.           Value = 10
  1148.         end
  1149.         object EnhanceOk: TCheckBox
  1150.           Left = 192
  1151.           Top = 180
  1152.           Width = 131
  1153.           Height = 17
  1154.           Hint = 'Enhance on Ok'
  1155.           Caption = 'Enhance on Ok'
  1156.           ParentShowHint = False
  1157.           ShowHint = True
  1158.           TabOrder = 4
  1159.           OnClick = EnhanceOkClick
  1160.         end
  1161.         object EnhBright: TSpinEdit
  1162.           Left = 256
  1163.           Top = 96
  1164.           Width = 57
  1165.           Height = 22
  1166.           Hint = 'Color or Gray '
  1167.           MaxValue = 255
  1168.           MinValue = -255
  1169.           ParentShowHint = False
  1170.           ShowHint = True
  1171.           TabOrder = 5
  1172.           Value = 0
  1173.         end
  1174.         object EnhContrast: TSpinEdit
  1175.           Left = 256
  1176.           Top = 122
  1177.           Width = 57
  1178.           Height = 22
  1179.           MaxValue = 255
  1180.           MinValue = -255
  1181.           ParentShowHint = False
  1182.           ShowHint = True
  1183.           TabOrder = 6
  1184.           Value = 0
  1185.         end
  1186.       end
  1187.     end
  1188.     object TPage
  1189.       Left = 0
  1190.       Top = 0
  1191.       Caption = 'Gray Area'
  1192.       object GroupBox17: TGroupBox
  1193.         Left = 7
  1194.         Top = 10
  1195.         Width = 333
  1196.         Height = 200
  1197.         Caption = 'Gray Area'
  1198.         TabOrder = 0
  1199.         IsControl = True
  1200.         object Label52: TLabel
  1201.           Left = 9
  1202.           Top = 164
  1203.           Width = 140
  1204.           Height = 13
  1205.           Caption = 'Drag Mouse to select an area'
  1206.         end
  1207.         object Gray: TBitBtn
  1208.           Left = 206
  1209.           Top = 120
  1210.           Width = 89
  1211.           Height = 33
  1212.           Caption = 'Preview'
  1213.           Enabled = False
  1214.           TabOrder = 0
  1215.           OnClick = GrayClick
  1216.           Style = bsNew
  1217.         end
  1218.         object GrayOk: TCheckBox
  1219.           Left = 211
  1220.           Top = 165
  1221.           Width = 82
  1222.           Height = 17
  1223.           Hint = 'Motion on Ok'
  1224.           Caption = 'Gray on OK'
  1225.           ParentShowHint = False
  1226.           ShowHint = True
  1227.           TabOrder = 1
  1228.           OnClick = GrayOkClick
  1229.         end
  1230.       end
  1231.     end
  1232.     object TPage
  1233.       Left = 0
  1234.       Top = 0
  1235.       Caption = 'Gamma'
  1236.       IsControl = True
  1237.       object GroupBox3: TGroupBox
  1238.         Left = 7
  1239.         Top = 10
  1240.         Width = 333
  1241.         Height = 200
  1242.         Caption = 'Gamma Correction'
  1243.         TabOrder = 0
  1244.         IsControl = True
  1245.         object Label8: TLabel
  1246.           Left = 219
  1247.           Top = 88
  1248.           Width = 51
  1249.           Height = 13
  1250.           Caption = 'Value = 10'
  1251.         end
  1252.         object Gamma: TBitBtn
  1253.           Left = 206
  1254.           Top = 144
  1255.           Width = 89
  1256.           Height = 33
  1257.           Caption = 'Preview'
  1258.           TabOrder = 0
  1259.           OnClick = GammaClick
  1260.           Style = bsNew
  1261.         end
  1262.         object GammaEdit: TScrollBar
  1263.           Left = 180
  1264.           Top = 108
  1265.           Width = 135
  1266.           Height = 11
  1267.           Hint = 'Value'
  1268.           Max = 50
  1269.           Min = 10
  1270.           ParentShowHint = False
  1271.           Position = 10
  1272.           ShowHint = True
  1273.           TabOrder = 1
  1274.           OnChange = GammaEditChange
  1275.         end
  1276.       end
  1277.     end
  1278.     object TPage
  1279.       Left = 0
  1280.       Top = 0
  1281.       Caption = 'HalfTone'
  1282.       object GroupBox128: TGroupBox
  1283.         Left = 7
  1284.         Top = 10
  1285.         Width = 333
  1286.         Height = 200
  1287.         Caption = 'HalfTone'
  1288.         TabOrder = 0
  1289.         IsControl = True
  1290.         object Label40: TLabel
  1291.           Left = 273
  1292.           Top = 51
  1293.           Width = 40
  1294.           Height = 13
  1295.           Caption = 'cell_size'
  1296.         end
  1297.         object Label41: TLabel
  1298.           Left = 195
  1299.           Top = 51
  1300.           Width = 26
  1301.           Height = 13
  1302.           Caption = 'angle'
  1303.         end
  1304.         object Label42: TLabel
  1305.           Left = 276
  1306.           Top = 169
  1307.           Width = 52
  1308.           Height = 13
  1309.           Caption = 'Gray Scale'
  1310.         end
  1311.         object HaftToneBtn: TBitBtn
  1312.           Left = 194
  1313.           Top = 151
  1314.           Width = 80
  1315.           Height = 29
  1316.           Caption = 'Preview'
  1317.           Enabled = False
  1318.           ParentShowHint = False
  1319.           ShowHint = True
  1320.           TabOrder = 0
  1321.           OnClick = HaftToneBtnClick
  1322.           Style = bsNew
  1323.         end
  1324.         object HalftoneCheck: TCheckBox
  1325.           Left = 192
  1326.           Top = 182
  1327.           Width = 92
  1328.           Height = 17
  1329.           Caption = 'Halftone on OK'
  1330.           ParentShowHint = False
  1331.           ShowHint = True
  1332.           TabOrder = 1
  1333.           OnClick = HalftoneCheckClick
  1334.         end
  1335.         object HTCellEdit: TSpinEdit
  1336.           Left = 272
  1337.           Top = 64
  1338.           Width = 57
  1339.           Height = 22
  1340.           Hint = 'How many pixels per cell'
  1341.           MaxValue = 200
  1342.           MinValue = 0
  1343.           ParentShowHint = False
  1344.           ShowHint = True
  1345.           TabOrder = 2
  1346.           Value = 4
  1347.         end
  1348.         object HTAngleEdit: TSpinEdit
  1349.           Left = 192
  1350.           Top = 64
  1351.           Width = 57
  1352.           Height = 22
  1353.           MaxLength = 180
  1354.           MaxValue = 0
  1355.           MinValue = 0
  1356.           ParentShowHint = False
  1357.           ShowHint = True
  1358.           TabOrder = 3
  1359.           Value = 0
  1360.         end
  1361.         object GroupBox33: TGroupBox
  1362.           Left = 192
  1363.           Top = 89
  1364.           Width = 136
  1365.           Height = 61
  1366.           Hint = 'Shape to use for halftoning'
  1367.           Caption = 'Shape'
  1368.           ParentShowHint = False
  1369.           ShowHint = True
  1370.           TabOrder = 4
  1371.           object Rcircle: TRadioButton
  1372.             Left = 72
  1373.             Top = 13
  1374.             Width = 58
  1375.             Height = 17
  1376.             Caption = 'Circle'
  1377.             TabOrder = 0
  1378.           end
  1379.           object Rellipse: TRadioButton
  1380.             Left = 72
  1381.             Top = 28
  1382.             Width = 58
  1383.             Height = 16
  1384.             Caption = 'Ellipse'
  1385.             TabOrder = 1
  1386.           end
  1387.           object Rsqaure: TRadioButton
  1388.             Left = 72
  1389.             Top = 40
  1390.             Width = 58
  1391.             Height = 17
  1392.             Caption = 'Sqaure'
  1393.             TabOrder = 2
  1394.           end
  1395.           object Rdiamond: TRadioButton
  1396.             Left = 8
  1397.             Top = 13
  1398.             Width = 66
  1399.             Height = 17
  1400.             Caption = 'Diamond'
  1401.             Checked = True
  1402.             TabOrder = 3
  1403.             TabStop = True
  1404.           end
  1405.           object Rline: TRadioButton
  1406.             Left = 8
  1407.             Top = 28
  1408.             Width = 66
  1409.             Height = 16
  1410.             Caption = 'Line'
  1411.             TabOrder = 4
  1412.           end
  1413.           object Rcross: TRadioButton
  1414.             Left = 8
  1415.             Top = 42
  1416.             Width = 66
  1417.             Height = 17
  1418.             Caption = 'Cross'
  1419.             TabOrder = 5
  1420.           end
  1421.         end
  1422.       end
  1423.       object GrayScaleCheck: TCheckBox
  1424.         Left = 300
  1425.         Top = 163
  1426.         Width = 16
  1427.         Height = 17
  1428.         Hint = 'Convert to grayscale first'
  1429.         Caption = 'Gray Scale'
  1430.         ParentShowHint = False
  1431.         ShowHint = True
  1432.         TabOrder = 1
  1433.       end
  1434.     end
  1435.     object TPage
  1436.       Left = 0
  1437.       Top = 0
  1438.       Caption = 'Hue and Saturation'
  1439.       object GroupBox39: TGroupBox
  1440.         Left = 7
  1441.         Top = 10
  1442.         Width = 333
  1443.         Height = 207
  1444.         Caption = 'Hue and Saturation'
  1445.         TabOrder = 0
  1446.         IsControl = True
  1447.         object Label70: TLabel
  1448.           Left = 238
  1449.           Top = 80
  1450.           Width = 38
  1451.           Height = 13
  1452.           Caption = 'Hue = 0'
  1453.         end
  1454.         object Label71: TLabel
  1455.           Left = 9
  1456.           Top = 164
  1457.           Width = 140
  1458.           Height = 13
  1459.           Caption = 'Drag Mouse to select an area'
  1460.         end
  1461.         object Label72: TLabel
  1462.           Left = 227
  1463.           Top = 111
  1464.           Width = 66
  1465.           Height = 13
  1466.           Caption = 'Saturation = 0'
  1467.         end
  1468.         object HandsP: TBitBtn
  1469.           Left = 230
  1470.           Top = 144
  1471.           Width = 89
  1472.           Height = 33
  1473.           Caption = 'Preview'
  1474.           TabOrder = 0
  1475.           OnClick = HandsPClick
  1476.           Style = bsNew
  1477.         end
  1478.         object tHue: TScrollBar
  1479.           Left = 216
  1480.           Top = 95
  1481.           Width = 113
  1482.           Height = 11
  1483.           Hint = 'Value'
  1484.           Max = 360
  1485.           ParentShowHint = False
  1486.           Position = 180
  1487.           ShowHint = True
  1488.           TabOrder = 1
  1489.           OnChange = tHueChange
  1490.         end
  1491.         object tSat: TScrollBar
  1492.           Left = 216
  1493.           Top = 126
  1494.           Width = 113
  1495.           Height = 11
  1496.           Hint = 'Value'
  1497.           Max = 200
  1498.           ParentShowHint = False
  1499.           Position = 100
  1500.           ShowHint = True
  1501.           TabOrder = 2
  1502.           OnChange = tSatChange
  1503.         end
  1504.         object HandS_On_Ok: TCheckBox
  1505.           Left = 237
  1506.           Top = 180
  1507.           Width = 92
  1508.           Height = 17
  1509.           Caption = 'Apply on Ok'
  1510.           TabOrder = 3
  1511.           OnClick = HandS_On_OkClick
  1512.         end
  1513.         object a3col: TRadioButton
  1514.           Left = 158
  1515.           Top = 73
  1516.           Width = 64
  1517.           Height = 17
  1518.           Caption = 'Master'
  1519.           Checked = True
  1520.           TabOrder = 4
  1521.           TabStop = True
  1522.           OnClick = a3colClick
  1523.         end
  1524.         object rRed: TRadioButton
  1525.           Left = 158
  1526.           Top = 93
  1527.           Width = 47
  1528.           Height = 17
  1529.           Caption = 'Red'
  1530.           TabOrder = 5
  1531.           OnClick = a3colClick
  1532.         end
  1533.         object rGreen: TRadioButton
  1534.           Left = 158
  1535.           Top = 111
  1536.           Width = 54
  1537.           Height = 17
  1538.           Caption = 'Green'
  1539.           TabOrder = 6
  1540.           OnClick = a3colClick
  1541.         end
  1542.         object rBlue: TRadioButton
  1543.           Left = 158
  1544.           Top = 130
  1545.           Width = 47
  1546.           Height = 17
  1547.           Caption = 'Blue'
  1548.           TabOrder = 7
  1549.           OnClick = a3colClick
  1550.         end
  1551.         object rYEL: TRadioButton
  1552.           Left = 158
  1553.           Top = 148
  1554.           Width = 54
  1555.           Height = 17
  1556.           Caption = 'Yellow'
  1557.           TabOrder = 8
  1558.           OnClick = a3colClick
  1559.         end
  1560.         object rMag: TRadioButton
  1561.           Left = 158
  1562.           Top = 166
  1563.           Width = 66
  1564.           Height = 17
  1565.           Caption = 'Magenta'
  1566.           TabOrder = 9
  1567.           OnClick = a3colClick
  1568.         end
  1569.         object rCyn: TRadioButton
  1570.           Left = 158
  1571.           Top = 185
  1572.           Width = 47
  1573.           Height = 17
  1574.           Caption = 'Cyan'
  1575.           TabOrder = 10
  1576.           OnClick = a3colClick
  1577.         end
  1578.       end
  1579.     end
  1580.     object TPage
  1581.       Left = 0
  1582.       Top = 0
  1583.       Caption = 'Invert'
  1584.       object GroupBox6: TGroupBox
  1585.         Left = 7
  1586.         Top = 10
  1587.         Width = 333
  1588.         Height = 200
  1589.         Caption = 'Invert Image'
  1590.         TabOrder = 0
  1591.         IsControl = True
  1592.         object InvertI: TCheckBox
  1593.           Left = 200
  1594.           Top = 128
  1595.           Width = 97
  1596.           Height = 17
  1597.           Caption = 'Invert Image'
  1598.           ParentShowHint = False
  1599.           ShowHint = True
  1600.           TabOrder = 0
  1601.           OnClick = InvertClick
  1602.         end
  1603.       end
  1604.     end
  1605.     object TPage
  1606.       Left = 0
  1607.       Top = 0
  1608.       Caption = 'Jiggle'
  1609.       object GroupBox29: TGroupBox
  1610.         Left = 7
  1611.         Top = 10
  1612.         Width = 333
  1613.         Height = 200
  1614.         Caption = 'Jiggle Image'
  1615.         TabOrder = 0
  1616.         IsControl = True
  1617.         object Label35: TLabel
  1618.           Left = 190
  1619.           Top = 46
  1620.           Width = 27
  1621.           Height = 13
  1622.           Caption = 'Value'
  1623.         end
  1624.         object Label36: TLabel
  1625.           Left = 254
  1626.           Top = 46
  1627.           Width = 21
  1628.           Height = 13
  1629.           Caption = 'Amp'
  1630.         end
  1631.         object Label39: TLabel
  1632.           Left = 229
  1633.           Top = 96
  1634.           Width = 31
  1635.           Height = 13
  1636.           Caption = 'Shape'
  1637.         end
  1638.         object Label53: TLabel
  1639.           Left = 9
  1640.           Top = 164
  1641.           Width = 140
  1642.           Height = 13
  1643.           Caption = 'Drag Mouse to select an area'
  1644.         end
  1645.         object JValue: TSpinEdit
  1646.           Left = 192
  1647.           Top = 61
  1648.           Width = 57
  1649.           Height = 22
  1650.           MaxValue = 100
  1651.           MinValue = 1
  1652.           ParentShowHint = False
  1653.           ShowHint = True
  1654.           TabOrder = 0
  1655.           Value = 1
  1656.         end
  1657.         object JAmp: TSpinEdit
  1658.           Left = 256
  1659.           Top = 61
  1660.           Width = 57
  1661.           Height = 22
  1662.           MaxValue = 360
  1663.           MinValue = 1
  1664.           ParentShowHint = False
  1665.           ShowHint = True
  1666.           TabOrder = 1
  1667.           Value = 10
  1668.         end
  1669.         object Jiggle: TBitBtn
  1670.           Left = 206
  1671.           Top = 145
  1672.           Width = 89
  1673.           Height = 33
  1674.           Caption = 'Preview'
  1675.           ParentShowHint = False
  1676.           ShowHint = True
  1677.           TabOrder = 2
  1678.           OnClick = JiggleClick
  1679.           Style = bsNew
  1680.         end
  1681.         object JShape: TSpinEdit
  1682.           Left = 223
  1683.           Top = 112
  1684.           Width = 57
  1685.           Height = 22
  1686.           MaxValue = 1
  1687.           MinValue = 0
  1688.           ParentShowHint = False
  1689.           ShowHint = True
  1690.           TabOrder = 3
  1691.           Value = 1
  1692.         end
  1693.       end
  1694.     end
  1695.     object TPage
  1696.       Left = 0
  1697.       Top = 0
  1698.       Caption = 'Mirror'
  1699.       IsControl = True
  1700.       object GroupBox5: TGroupBox
  1701.         Left = 7
  1702.         Top = 10
  1703.         Width = 333
  1704.         Height = 200
  1705.         Caption = 'Mirror Image'
  1706.         TabOrder = 0
  1707.         IsControl = True
  1708.         object Mirror: TBitBtn
  1709.           Left = 206
  1710.           Top = 128
  1711.           Width = 89
  1712.           Height = 33
  1713.           Caption = 'Preview'
  1714.           TabOrder = 0
  1715.           OnClick = MirrorClick
  1716.           Style = bsNew
  1717.         end
  1718.         object HBox: TCheckBox
  1719.           Left = 210
  1720.           Top = 95
  1721.           Width = 97
  1722.           Height = 17
  1723.           Caption = 'Horizontal'
  1724.           TabOrder = 1
  1725.         end
  1726.         object VBox: TCheckBox
  1727.           Left = 210
  1728.           Top = 73
  1729.           Width = 97
  1730.           Height = 17
  1731.           Caption = 'Vertical'
  1732.           TabOrder = 2
  1733.         end
  1734.       end
  1735.     end
  1736.     object TPage
  1737.       Left = 0
  1738.       Top = 0
  1739.       Caption = 'Mosaic'
  1740.       object GroupBox26: TGroupBox
  1741.         Left = 7
  1742.         Top = 10
  1743.         Width = 333
  1744.         Height = 200
  1745.         Caption = 'Mosaic Effect'
  1746.         TabOrder = 0
  1747.         IsControl = True
  1748.         object Label31: TLabel
  1749.           Left = 244
  1750.           Top = 62
  1751.           Width = 20
  1752.           Height = 13
  1753.           Caption = 'Size'
  1754.         end
  1755.         object labell: TLabel
  1756.           Left = 287
  1757.           Top = 62
  1758.           Width = 31
  1759.           Height = 13
  1760.           Caption = 'Height'
  1761.         end
  1762.         object labels: TLabel
  1763.           Left = 244
  1764.           Top = 97
  1765.           Width = 31
  1766.           Height = 13
  1767.           Caption = 'Space'
  1768.         end
  1769.         object Labels45: TLabel
  1770.           Left = 288
  1771.           Top = 97
  1772.           Width = 23
  1773.           Height = 13
  1774.           Caption = 'Light'
  1775.         end
  1776.         object Labels53: TLabel
  1777.           Left = 222
  1778.           Top = 142
  1779.           Width = 29
  1780.           Height = 13
  1781.           Caption = 'Rand.'
  1782.           ParentShowHint = False
  1783.           ShowHint = True
  1784.         end
  1785.         object Label54: TLabel
  1786.           Left = 9
  1787.           Top = 164
  1788.           Width = 140
  1789.           Height = 13
  1790.           Caption = 'Drag Mouse to select an area'
  1791.         end
  1792.         object Mosaic: TBitBtn
  1793.           Left = 165
  1794.           Top = 135
  1795.           Width = 54
  1796.           Height = 43
  1797.           Caption = 'Preview'
  1798.           Enabled = False
  1799.           TabOrder = 0
  1800.           OnClick = MosaicClick
  1801.           Style = bsNew
  1802.         end
  1803.         object MosBColor: TBitBtn
  1804.           Left = 258
  1805.           Top = 143
  1806.           Width = 69
  1807.           Height = 22
  1808.           Caption = 'B-Color'
  1809.           ParentShowHint = False
  1810.           ShowHint = True
  1811.           TabOrder = 2
  1812.           OnClick = MosBColorClick
  1813.           Style = bsNew
  1814.         end
  1815.         object GroupBox30: TGroupBox
  1816.           Left = 164
  1817.           Top = 48
  1818.           Width = 77
  1819.           Height = 31
  1820.           Caption = 'Polygons'
  1821.           ParentShowHint = False
  1822.           ShowHint = True
  1823.           TabOrder = 3
  1824.           object btnType2: TRadioButton
  1825.             Left = 49
  1826.             Top = 12
  1827.             Width = 17
  1828.             Height = 17
  1829.             Checked = True
  1830.             ParentShowHint = False
  1831.             ShowHint = True
  1832.             TabOrder = 0
  1833.             TabStop = True
  1834.             OnClick = btnType2Click
  1835.           end
  1836.           object btnType: TRadioButton
  1837.             Left = 12
  1838.             Top = 12
  1839.             Width = 18
  1840.             Height = 17
  1841.             ParentShowHint = False
  1842.             ShowHint = True
  1843.             TabOrder = 1
  1844.             OnClick = btnTypeClick
  1845.           end
  1846.         end
  1847.         object MosAntiA: TCheckBox
  1848.           Left = 244
  1849.           Top = 47
  1850.           Width = 82
  1851.           Height = 17
  1852.           Hint = 'Anti-Aliasing'
  1853.           Caption = 'Anti-Aliasing'
  1854.           ParentShowHint = False
  1855.           ShowHint = True
  1856.           State = cbChecked
  1857.           TabOrder = 4
  1858.         end
  1859.         object MosSize: TSpinEdit
  1860.           Left = 243
  1861.           Top = 75
  1862.           Width = 43
  1863.           Height = 22
  1864.           Hint = 'Size of the mosiac'
  1865.           MaxLength = 100
  1866.           MaxValue = 20000
  1867.           MinValue = 1
  1868.           ParentShowHint = False
  1869.           ShowHint = True
  1870.           TabOrder = 5
  1871.           Value = 150
  1872.         end
  1873.         object MosHeight: TSpinEdit
  1874.           Left = 290
  1875.           Top = 75
  1876.           Width = 39
  1877.           Height = 22
  1878.           Hint = 'Height of the mosiac'
  1879.           MaxValue = 20000
  1880.           MinValue = 1
  1881.           ParentShowHint = False
  1882.           ShowHint = True
  1883.           TabOrder = 6
  1884.           Value = 40
  1885.         end
  1886.         object MosLight: TSpinEdit
  1887.           Left = 289
  1888.           Top = 110
  1889.           Width = 40
  1890.           Height = 22
  1891.           Hint = 'Light degree'
  1892.           MaxValue = 360
  1893.           MinValue = -360
  1894.           ParentShowHint = False
  1895.           ShowHint = True
  1896.           TabOrder = 7
  1897.           Value = 30
  1898.         end
  1899.         object MosSpace: TSpinEdit
  1900.           Left = 244
  1901.           Top = 110
  1902.           Width = 42
  1903.           Height = 22
  1904.           Hint = 'Space between mosaics'
  1905.           MaxValue = 1000
  1906.           MinValue = 1
  1907.           ParentShowHint = False
  1908.           ShowHint = True
  1909.           TabOrder = 8
  1910.           Value = 10
  1911.         end
  1912.         object MosRand: TSpinEdit
  1913.           Left = 221
  1914.           Top = 156
  1915.           Width = 33
  1916.           Height = 22
  1917.           Hint = 'Random'
  1918.           MaxValue = 5
  1919.           MinValue = 0
  1920.           ParentShowHint = False
  1921.           ShowHint = True
  1922.           TabOrder = 9
  1923.           Value = 1
  1924.         end
  1925.         object GroupBox27: TGroupBox
  1926.           Left = 164
  1927.           Top = 99
  1928.           Width = 77
  1929.           Height = 31
  1930.           Caption = 'Smooth'
  1931.           ParentShowHint = False
  1932.           ShowHint = True
  1933.           TabOrder = 10
  1934.           object MosSur2: TRadioButton
  1935.             Left = 49
  1936.             Top = 12
  1937.             Width = 17
  1938.             Height = 17
  1939.             ParentShowHint = False
  1940.             ShowHint = True
  1941.             TabOrder = 0
  1942.             OnClick = MosSur2Click
  1943.           end
  1944.           object MosSur1: TRadioButton
  1945.             Left = 12
  1946.             Top = 12
  1947.             Width = 18
  1948.             Height = 17
  1949.             Checked = True
  1950.             ParentShowHint = False
  1951.             ShowHint = True
  1952.             TabOrder = 1
  1953.             TabStop = True
  1954.             OnClick = MosSur1Click
  1955.           end
  1956.         end
  1957.         object MosFColor: TBitBtn
  1958.           Left = 258
  1959.           Top = 170
  1960.           Width = 69
  1961.           Height = 23
  1962.           Caption = 'F-Color'
  1963.           ParentShowHint = False
  1964.           ShowHint = True
  1965.           TabOrder = 1
  1966.           OnClick = MosFColorClick
  1967.           Style = bsNew
  1968.         end
  1969.       end
  1970.       object MosOk: TCheckBox
  1971.         Left = 171
  1972.         Top = 192
  1973.         Width = 89
  1974.         Height = 15
  1975.         Caption = 'Mosaic On OK'
  1976.         ParentShowHint = False
  1977.         ShowHint = True
  1978.         TabOrder = 1
  1979.         OnClick = MosOkClick
  1980.       end
  1981.     end
  1982.     object TPage
  1983.       Left = 0
  1984.       Top = 0
  1985.       Caption = 'Motion'
  1986.       object GroupBox16: TGroupBox
  1987.         Left = 7
  1988.         Top = 10
  1989.         Width = 333
  1990.         Height = 200
  1991.         Caption = 'Motion Image'
  1992.         TabOrder = 0
  1993.         IsControl = True
  1994.         object Label24: TLabel
  1995.           Left = 190
  1996.           Top = 47
  1997.           Width = 27
  1998.           Height = 13
  1999.           Caption = 'Value'
  2000.         end
  2001.         object Label25: TLabel
  2002.           Left = 254
  2003.           Top = 48
  2004.           Width = 27
  2005.           Height = 13
  2006.           Caption = 'Angle'
  2007.         end
  2008.         object Label55: TLabel
  2009.           Left = 9
  2010.           Top = 164
  2011.           Width = 140
  2012.           Height = 13
  2013.           Caption = 'Drag Mouse to select an area'
  2014.         end
  2015.         object Motion: TBitBtn
  2016.           Left = 193
  2017.           Top = 148
  2018.           Width = 89
  2019.           Height = 29
  2020.           Caption = 'Preview'
  2021.           Enabled = False
  2022.           ParentShowHint = False
  2023.           ShowHint = True
  2024.           TabOrder = 0
  2025.           OnClick = MotionClick
  2026.           Style = bsNew
  2027.         end
  2028.         object MotEdit: TSpinEdit
  2029.           Left = 192
  2030.           Top = 60
  2031.           Width = 57
  2032.           Height = 22
  2033.           MaxValue = 5000
  2034.           MinValue = 5
  2035.           ParentShowHint = False
  2036.           ShowHint = True
  2037.           TabOrder = 1
  2038.           Value = 10
  2039.         end
  2040.         object MotAngleEdit: TSpinEdit
  2041.           Left = 256
  2042.           Top = 60
  2043.           Width = 57
  2044.           Height = 22
  2045.           MaxValue = 360
  2046.           MinValue = 0
  2047.           ParentShowHint = False
  2048.           ShowHint = True
  2049.           TabOrder = 2
  2050.           Value = 10
  2051.           Visible = False
  2052.         end
  2053.         object MotionZoom: TRadioButton
  2054.           Left = 192
  2055.           Top = 88
  2056.           Width = 113
  2057.           Height = 17
  2058.           Caption = 'Motion Zoom'
  2059.           Checked = True
  2060.           ParentShowHint = False
  2061.           ShowHint = True
  2062.           TabOrder = 3
  2063.           TabStop = True
  2064.           OnClick = Mtr
  2065.         end
  2066.         object MotionRotate: TRadioButton
  2067.           Left = 192
  2068.           Top = 107
  2069.           Width = 113
  2070.           Height = 17
  2071.           Caption = 'Motion Rotate'
  2072.           ParentShowHint = False
  2073.           ShowHint = True
  2074.           TabOrder = 4
  2075.           OnClick = Mtr
  2076.         end
  2077.         object MotionLine: TRadioButton
  2078.           Left = 192
  2079.           Top = 128
  2080.           Width = 113
  2081.           Height = 17
  2082.           Caption = 'Motion Line'
  2083.           ParentShowHint = False
  2084.           ShowHint = True
  2085.           TabOrder = 5
  2086.           OnClick = Mtr
  2087.         end
  2088.         object MotionOk: TCheckBox
  2089.           Left = 192
  2090.           Top = 180
  2091.           Width = 133
  2092.           Height = 17
  2093.           Hint = 'Motion on Ok'
  2094.           Caption = 'Motion on Ok'
  2095.           ParentShowHint = False
  2096.           ShowHint = True
  2097.           TabOrder = 6
  2098.           OnClick = MotionOkClick
  2099.         end
  2100.       end
  2101.     end
  2102.     object TPage
  2103.       Left = 0
  2104.       Top = 0
  2105.       Caption = 'Noisy'
  2106.       object GroupBox13: TGroupBox
  2107.         Left = 7
  2108.         Top = 10
  2109.         Width = 333
  2110.         Height = 200
  2111.         Caption = 'Noisy Image'
  2112.         TabOrder = 0
  2113.         IsControl = True
  2114.         object Label13: TLabel
  2115.           Left = 192
  2116.           Top = 47
  2117.           Width = 20
  2118.           Height = 13
  2119.           Caption = 'Red'
  2120.         end
  2121.         object Label14: TLabel
  2122.           Left = 252
  2123.           Top = 47
  2124.           Width = 29
  2125.           Height = 13
  2126.           Caption = 'Green'
  2127.         end
  2128.         object Label33: TLabel
  2129.           Left = 192
  2130.           Top = 82
  2131.           Width = 21
  2132.           Height = 13
  2133.           Caption = 'Blue'
  2134.         end
  2135.         object Label15: TLabel
  2136.           Left = 256
  2137.           Top = 82
  2138.           Width = 22
  2139.           Height = 13
  2140.           Caption = 'Gray'
  2141.         end
  2142.         object Label16: TLabel
  2143.           Left = 193
  2144.           Top = 127
  2145.           Width = 36
  2146.           Height = 13
  2147.           Hint = 'gauss or uniform'
  2148.           Caption = 'Method'
  2149.         end
  2150.         object Label56: TLabel
  2151.           Left = 9
  2152.           Top = 164
  2153.           Width = 140
  2154.           Height = 13
  2155.           Caption = 'Drag Mouse to select an area'
  2156.         end
  2157.         object Noisy: TBitBtn
  2158.           Left = 193
  2159.           Top = 148
  2160.           Width = 89
  2161.           Height = 29
  2162.           Caption = 'Preview'
  2163.           Enabled = False
  2164.           ParentShowHint = False
  2165.           ShowHint = True
  2166.           TabOrder = 0
  2167.           OnClick = NoisyClick
  2168.           Style = bsNew
  2169.         end
  2170.         object sRed: TSpinEdit
  2171.           Left = 192
  2172.           Top = 60
  2173.           Width = 57
  2174.           Height = 22
  2175.           MaxValue = 255
  2176.           MinValue = 0
  2177.           ParentShowHint = False
  2178.           ShowHint = True
  2179.           TabOrder = 1
  2180.           Value = 20
  2181.         end
  2182.         object sGreen: TSpinEdit
  2183.           Left = 256
  2184.           Top = 60
  2185.           Width = 57
  2186.           Height = 22
  2187.           MaxValue = 255
  2188.           MinValue = 0
  2189.           ParentShowHint = False
  2190.           ShowHint = True
  2191.           TabOrder = 2
  2192.           Value = 20
  2193.         end
  2194.         object sBlue: TSpinEdit
  2195.           Left = 192
  2196.           Top = 96
  2197.           Width = 57
  2198.           Height = 22
  2199.           MaxValue = 255
  2200.           MinValue = 0
  2201.           ParentShowHint = False
  2202.           ShowHint = True
  2203.           TabOrder = 3
  2204.           Value = 20
  2205.         end
  2206.         object NoisyOk: TCheckBox
  2207.           Left = 192
  2208.           Top = 179
  2209.           Width = 129
  2210.           Height = 17
  2211.           Hint = 'Noisy on Ok'
  2212.           Caption = 'Noisy on Ok'
  2213.           ParentShowHint = False
  2214.           ShowHint = True
  2215.           TabOrder = 4
  2216.           OnClick = NoisyOkClick
  2217.         end
  2218.         object sGray: TSpinEdit
  2219.           Left = 256
  2220.           Top = 96
  2221.           Width = 57
  2222.           Height = 22
  2223.           Hint = 'Color or Gray '
  2224.           MaxValue = 1
  2225.           MinValue = 0
  2226.           ParentShowHint = False
  2227.           ShowHint = True
  2228.           TabOrder = 5
  2229.           Value = 0
  2230.         end
  2231.         object NoisyValue: TSpinEdit
  2232.           Left = 257
  2233.           Top = 122
  2234.           Width = 57
  2235.           Height = 22
  2236.           MaxValue = 1
  2237.           MinValue = 0
  2238.           ParentShowHint = False
  2239.           ShowHint = True
  2240.           TabOrder = 6
  2241.           Value = 0
  2242.         end
  2243.       end
  2244.     end
  2245.     object TPage
  2246.       Left = 0
  2247.       Top = 0
  2248.       Caption = 'Oil Paint'
  2249.       object GroupBox8: TGroupBox
  2250.         Left = 7
  2251.         Top = 10
  2252.         Width = 333
  2253.         Height = 200
  2254.         Caption = 'Oil Paint Image'
  2255.         TabOrder = 0
  2256.         IsControl = True
  2257.         object Label1: TLabel
  2258.           Left = 219
  2259.           Top = 88
  2260.           Width = 45
  2261.           Height = 13
  2262.           Caption = 'Value = 0'
  2263.         end
  2264.         object Label57: TLabel
  2265.           Left = 9
  2266.           Top = 164
  2267.           Width = 140
  2268.           Height = 13
  2269.           Caption = 'Drag Mouse to select an area'
  2270.         end
  2271.         object OilPaint: TBitBtn
  2272.           Left = 206
  2273.           Top = 136
  2274.           Width = 89
  2275.           Height = 33
  2276.           Caption = 'Preview'
  2277.           TabOrder = 0
  2278.           OnClick = OilPaintClick
  2279.           Style = bsNew
  2280.         end
  2281.         object OPbar: TScrollBar
  2282.           Left = 180
  2283.           Top = 108
  2284.           Width = 135
  2285.           Height = 11
  2286.           Hint = 'Value'
  2287.           ParentShowHint = False
  2288.           ShowHint = True
  2289.           TabOrder = 1
  2290.           OnChange = OPbarChange
  2291.         end
  2292.       end
  2293.     end
  2294.     object TPage
  2295.       Left = 0
  2296.       Top = 0
  2297.       Caption = 'Pinch Hole'
  2298.       object GroupBox14: TGroupBox
  2299.         Left = 7
  2300.         Top = 10
  2301.         Width = 333
  2302.         Height = 200
  2303.         Caption = 'Pinch Hole in Image'
  2304.         TabOrder = 0
  2305.         IsControl = True
  2306.         object Label17: TLabel
  2307.           Left = 219
  2308.           Top = 88
  2309.           Width = 45
  2310.           Height = 13
  2311.           Caption = 'Value = 0'
  2312.         end
  2313.         object Label19: TLabel
  2314.           Left = 172
  2315.           Top = 165
  2316.           Width = 3
  2317.           Height = 13
  2318.         end
  2319.         object Label58: TLabel
  2320.           Left = 9
  2321.           Top = 164
  2322.           Width = 140
  2323.           Height = 13
  2324.           Caption = 'Drag Mouse to select an area'
  2325.         end
  2326.         object BitBtn1: TBitBtn
  2327.           Left = 206
  2328.           Top = 136
  2329.           Width = 89
  2330.           Height = 33
  2331.           Caption = 'Preview'
  2332.           TabOrder = 0
  2333.           OnClick = BitBtn1Click
  2334.           Style = bsNew
  2335.         end
  2336.         object PinchBar: TScrollBar
  2337.           Left = 180
  2338.           Top = 108
  2339.           Width = 135
  2340.           Height = 11
  2341.           Hint = 'Value'
  2342.           Max = 0
  2343.           Min = -20
  2344.           ParentShowHint = False
  2345.           ShowHint = True
  2346.           TabOrder = 1
  2347.           OnChange = PinchBarChange
  2348.         end
  2349.       end
  2350.     end
  2351.     object TPage
  2352.       Left = 0
  2353.       Top = 0
  2354.       Caption = 'Pixel Fix'
  2355.       object GroupBox25: TGroupBox
  2356.         Left = 7
  2357.         Top = 10
  2358.         Width = 333
  2359.         Height = 200
  2360.         Caption = 'Fill in missing pixels (Despeckle)'
  2361.         TabOrder = 0
  2362.         IsControl = True
  2363.         object Label30: TLabel
  2364.           Left = 219
  2365.           Top = 88
  2366.           Width = 45
  2367.           Height = 13
  2368.           Caption = 'Value = 0'
  2369.         end
  2370.         object Label59: TLabel
  2371.           Left = 9
  2372.           Top = 164
  2373.           Width = 140
  2374.           Height = 13
  2375.           Caption = 'Drag Mouse to select an area'
  2376.         end
  2377.         object PxelFix: TBitBtn
  2378.           Left = 206
  2379.           Top = 136
  2380.           Width = 89
  2381.           Height = 33
  2382.           Caption = 'Preview'
  2383.           TabOrder = 0
  2384.           OnClick = PxelFixClick
  2385.           Style = bsNew
  2386.         end
  2387.         object PFix: TScrollBar
  2388.           Left = 180
  2389.           Top = 108
  2390.           Width = 135
  2391.           Height = 11
  2392.           Hint = 'Number of neighbour pixels to examine'
  2393.           ParentShowHint = False
  2394.           ShowHint = True
  2395.           TabOrder = 1
  2396.           OnChange = PFixChange
  2397.         end
  2398.       end
  2399.     end
  2400.     object TPage
  2401.       Left = 0
  2402.       Top = 0
  2403.       Caption = 'Pyramid Extrude'
  2404.       object GroupBox38: TGroupBox
  2405.         Left = 7
  2406.         Top = 10
  2407.         Width = 333
  2408.         Height = 200
  2409.         Caption = 'Pyramid Extrude'
  2410.         TabOrder = 0
  2411.         IsControl = True
  2412.         object PyramidSize: TLabel
  2413.           Left = 216
  2414.           Top = 71
  2415.           Width = 20
  2416.           Height = 13
  2417.           Caption = 'Size'
  2418.         end
  2419.         object ExtrudeSize: TSpinEdit
  2420.           Left = 216
  2421.           Top = 86
  2422.           Width = 49
  2423.           Height = 22
  2424.           MaxValue = 30
  2425.           MinValue = 10
  2426.           ParentShowHint = False
  2427.           ShowHint = True
  2428.           TabOrder = 0
  2429.           Value = 10
  2430.         end
  2431.         object PyramidOnOk: TCheckBox
  2432.           Left = 216
  2433.           Top = 160
  2434.           Width = 97
  2435.           Height = 17
  2436.           Caption = 'Pyramid On Ok'
  2437.           ParentShowHint = False
  2438.           ShowHint = True
  2439.           TabOrder = 1
  2440.           OnClick = PyramidOnOkClick
  2441.         end
  2442.         object Levels: TCheckBox
  2443.           Left = 272
  2444.           Top = 87
  2445.           Width = 52
  2446.           Height = 17
  2447.           Caption = 'Levels'
  2448.           ParentShowHint = False
  2449.           ShowHint = True
  2450.           State = cbChecked
  2451.           TabOrder = 2
  2452.           Visible = False
  2453.         end
  2454.         object PreviewPyramid: TBitBtn
  2455.           Left = 218
  2456.           Top = 118
  2457.           Width = 89
  2458.           Height = 33
  2459.           Caption = 'Preview'
  2460.           ParentShowHint = False
  2461.           ShowHint = True
  2462.           TabOrder = 3
  2463.           OnClick = PreviewPyramidClick
  2464.           Style = bsNew
  2465.         end
  2466.       end
  2467.     end
  2468.     object TPage
  2469.       Left = 0
  2470.       Top = 0
  2471.       Caption = 'Polar'
  2472.       object GroupBox20: TGroupBox
  2473.         Left = 7
  2474.         Top = 10
  2475.         Width = 333
  2476.         Height = 200
  2477.         Caption = 'Polar Image'
  2478.         TabOrder = 0
  2479.         IsControl = True
  2480.         object Label28: TLabel
  2481.           Left = 189
  2482.           Top = 60
  2483.           Width = 21
  2484.           Height = 13
  2485.           Caption = 'Vale'
  2486.         end
  2487.         object Label29: TLabel
  2488.           Left = 259
  2489.           Top = 60
  2490.           Width = 27
  2491.           Height = 13
  2492.           Caption = 'Angle'
  2493.         end
  2494.         object Label60: TLabel
  2495.           Left = 9
  2496.           Top = 164
  2497.           Width = 140
  2498.           Height = 13
  2499.           Caption = 'Drag Mouse to select an area'
  2500.         end
  2501.         object PolarBt: TBitBtn
  2502.           Left = 206
  2503.           Top = 128
  2504.           Width = 89
  2505.           Height = 33
  2506.           Caption = 'Preview'
  2507.           Enabled = False
  2508.           ParentShowHint = False
  2509.           ShowHint = True
  2510.           TabOrder = 0
  2511.           OnClick = PolarBtClick
  2512.           Style = bsNew
  2513.         end
  2514.         object PolBack: TCheckBox
  2515.           Left = 247
  2516.           Top = 100
  2517.           Width = 71
  2518.           Height = 17
  2519.           Caption = 'Backwards'
  2520.           ParentShowHint = False
  2521.           ShowHint = True
  2522.           TabOrder = 1
  2523.         end
  2524.         object PolInv: TCheckBox
  2525.           Left = 189
  2526.           Top = 100
  2527.           Width = 57
  2528.           Height = 17
  2529.           Caption = 'Inverse'
  2530.           ParentShowHint = False
  2531.           ShowHint = True
  2532.           TabOrder = 2
  2533.         end
  2534.         object PolValue: TSpinEdit
  2535.           Left = 189
  2536.           Top = 75
  2537.           Width = 57
  2538.           Height = 22
  2539.           MaxValue = 0
  2540.           MinValue = 0
  2541.           ParentShowHint = False
  2542.           ShowHint = True
  2543.           TabOrder = 3
  2544.           Value = 100
  2545.         end
  2546.         object PolAngle: TSpinEdit
  2547.           Left = 259
  2548.           Top = 75
  2549.           Width = 57
  2550.           Height = 22
  2551.           MaxValue = 0
  2552.           MinValue = 0
  2553.           ParentShowHint = False
  2554.           ShowHint = True
  2555.           TabOrder = 4
  2556.           Value = 0
  2557.         end
  2558.         object PolOk: TCheckBox
  2559.           Left = 209
  2560.           Top = 166
  2561.           Width = 104
  2562.           Height = 17
  2563.           Hint = 'Polar on Ok'
  2564.           Caption = 'Polar on Ok'
  2565.           ParentShowHint = False
  2566.           ShowHint = True
  2567.           TabOrder = 5
  2568.           OnClick = PolOkClick
  2569.         end
  2570.       end
  2571.     end
  2572.     object TPage
  2573.       Left = 0
  2574.       Top = 0
  2575.       Caption = 'Rotate'
  2576.       object Label6: TLabel
  2577.         Left = 230
  2578.         Top = 192
  2579.         Width = 45
  2580.         Height = 13
  2581.         Caption = 'Angle = 0'
  2582.       end
  2583.       object GroupBox4: TGroupBox
  2584.         Left = 7
  2585.         Top = 10
  2586.         Width = 333
  2587.         Height = 200
  2588.         Caption = 'Rotate Image'
  2589.         TabOrder = 0
  2590.         IsControl = True
  2591.         object Label61: TLabel
  2592.           Left = 9
  2593.           Top = 164
  2594.           Width = 140
  2595.           Height = 13
  2596.           Caption = 'Drag Mouse to select an area'
  2597.         end
  2598.         object Rotate: TBitBtn
  2599.           Left = 206
  2600.           Top = 119
  2601.           Width = 89
  2602.           Height = 33
  2603.           Caption = 'Preview'
  2604.           TabOrder = 0
  2605.           OnClick = RotateClick
  2606.           Style = bsNew
  2607.         end
  2608.         object BackColor: TBitBtn
  2609.           Left = 207
  2610.           Top = 76
  2611.           Width = 89
  2612.           Height = 33
  2613.           Caption = 'Back Color'
  2614.           TabOrder = 1
  2615.           OnClick = BackColorClick
  2616.           Style = bsNew
  2617.         end
  2618.       end
  2619.       object RotEdit: TScrollBar
  2620.         Left = 190
  2621.         Top = 175
  2622.         Width = 135
  2623.         Height = 11
  2624.         Hint = 'Angle'
  2625.         Max = 360
  2626.         Min = -360
  2627.         ParentShowHint = False
  2628.         ShowHint = True
  2629.         TabOrder = 1
  2630.         OnChange = RotEditChange
  2631.       end
  2632.     end
  2633.     object TPage
  2634.       Left = 0
  2635.       Top = 0
  2636.       Caption = 'Sharp'
  2637.       object GroupBox18: TGroupBox
  2638.         Left = 7
  2639.         Top = 10
  2640.         Width = 333
  2641.         Height = 200
  2642.         Caption = 'SharpImage'
  2643.         TabOrder = 0
  2644.         IsControl = True
  2645.         object Label26: TLabel
  2646.           Left = 219
  2647.           Top = 88
  2648.           Width = 45
  2649.           Height = 13
  2650.           Caption = 'Value = 0'
  2651.         end
  2652.         object Label62: TLabel
  2653.           Left = 9
  2654.           Top = 164
  2655.           Width = 140
  2656.           Height = 13
  2657.           Caption = 'Drag Mouse to select an area'
  2658.         end
  2659.         object Sharp: TBitBtn
  2660.           Left = 206
  2661.           Top = 136
  2662.           Width = 89
  2663.           Height = 33
  2664.           Caption = 'Preview'
  2665.           TabOrder = 0
  2666.           OnClick = SharpClick
  2667.           Style = bsNew
  2668.         end
  2669.         object SharpBar: TScrollBar
  2670.           Left = 180
  2671.           Top = 108
  2672.           Width = 135
  2673.           Height = 11
  2674.           Hint = 'Value'
  2675.           Max = 9
  2676.           Min = -9
  2677.           ParentShowHint = False
  2678.           ShowHint = True
  2679.           TabOrder = 1
  2680.           OnChange = SharpBarChange
  2681.         end
  2682.       end
  2683.     end
  2684.     object TPage
  2685.       Left = 0
  2686.       Top = 0
  2687.       Caption = 'Spray'
  2688.       object GroupBox31: TGroupBox
  2689.         Left = 7
  2690.         Top = 10
  2691.         Width = 333
  2692.         Height = 200
  2693.         Caption = 'Spray Image'
  2694.         TabOrder = 0
  2695.         IsControl = True
  2696.         object Label37: TLabel
  2697.           Left = 190
  2698.           Top = 71
  2699.           Width = 27
  2700.           Height = 13
  2701.           Caption = 'Value'
  2702.         end
  2703.         object Label38: TLabel
  2704.           Left = 254
  2705.           Top = 72
  2706.           Width = 40
  2707.           Height = 13
  2708.           Caption = 'Random'
  2709.         end
  2710.         object Label63: TLabel
  2711.           Left = 9
  2712.           Top = 164
  2713.           Width = 140
  2714.           Height = 13
  2715.           Caption = 'Drag Mouse to select an area'
  2716.         end
  2717.         object SprayVal: TSpinEdit
  2718.           Left = 192
  2719.           Top = 84
  2720.           Width = 57
  2721.           Height = 22
  2722.           MaxValue = 1000
  2723.           MinValue = 0
  2724.           ParentShowHint = False
  2725.           ShowHint = True
  2726.           TabOrder = 0
  2727.           Value = 0
  2728.         end
  2729.         object SprayRand: TSpinEdit
  2730.           Left = 256
  2731.           Top = 84
  2732.           Width = 57
  2733.           Height = 22
  2734.           MaxValue = 360
  2735.           MinValue = 1
  2736.           TabOrder = 1
  2737.           Value = 1
  2738.         end
  2739.         object Spray: TBitBtn
  2740.           Left = 206
  2741.           Top = 136
  2742.           Width = 89
  2743.           Height = 33
  2744.           Caption = 'Preview'
  2745.           TabOrder = 2
  2746.           OnClick = SprayClick
  2747.           Style = bsNew
  2748.         end
  2749.       end
  2750.     end
  2751.     object TPage
  2752.       Left = 0
  2753.       Top = 0
  2754.       Caption = 'Tile Maker'
  2755.       object BitBtn2: TBitBtn
  2756.         Left = 206
  2757.         Top = 120
  2758.         Width = 89
  2759.         Height = 33
  2760.         Caption = 'Preview'
  2761.         Enabled = False
  2762.         TabOrder = 0
  2763.         OnClick = GrayClick
  2764.         Style = bsNew
  2765.       end
  2766.       object CheckBox1: TCheckBox
  2767.         Left = 211
  2768.         Top = 157
  2769.         Width = 82
  2770.         Height = 17
  2771.         Hint = 'Motion on Ok'
  2772.         Caption = 'Gray on OK'
  2773.         ParentShowHint = False
  2774.         ShowHint = True
  2775.         TabOrder = 1
  2776.         OnClick = GrayOkClick
  2777.       end
  2778.       object GroupBox35: TGroupBox
  2779.         Left = 7
  2780.         Top = 10
  2781.         Width = 333
  2782.         Height = 200
  2783.         Caption = 'Create an Image Suitable for Tiling'
  2784.         TabOrder = 2
  2785.         IsControl = True
  2786.         object TileBTN: TBitBtn
  2787.           Left = 206
  2788.           Top = 120
  2789.           Width = 89
  2790.           Height = 33
  2791.           Caption = 'Preview'
  2792.           Enabled = False
  2793.           TabOrder = 0
  2794.           OnClick = TileBTNClick
  2795.           Style = bsNew
  2796.         end
  2797.         object TileOnOk: TCheckBox
  2798.           Left = 211
  2799.           Top = 161
  2800.           Width = 85
  2801.           Height = 15
  2802.           Caption = 'Tile on ok'
  2803.           TabOrder = 1
  2804.           OnClick = TileOnOkClick
  2805.         end
  2806.       end
  2807.     end
  2808.     object TPage
  2809.       Left = 0
  2810.       Top = 0
  2811.       Caption = 'Threshold'
  2812.       object GroupBox36: TGroupBox
  2813.         Left = 7
  2814.         Top = 10
  2815.         Width = 333
  2816.         Height = 200
  2817.         Caption = 'Threshold Image'
  2818.         TabOrder = 0
  2819.         IsControl = True
  2820.         object Label32: TLabel
  2821.           Left = 190
  2822.           Top = 47
  2823.           Width = 27
  2824.           Height = 13
  2825.           Caption = 'Value'
  2826.         end
  2827.         object Label34: TLabel
  2828.           Left = 254
  2829.           Top = 48
  2830.           Width = 59
  2831.           Height = 13
  2832.           Caption = 'Anti Alialsing'
  2833.         end
  2834.         object Label46: TLabel
  2835.           Left = 9
  2836.           Top = 164
  2837.           Width = 140
  2838.           Height = 13
  2839.           Caption = 'Drag Mouse to select an area'
  2840.         end
  2841.         object ThresEdit: TSpinEdit
  2842.           Left = 192
  2843.           Top = 60
  2844.           Width = 57
  2845.           Height = 22
  2846.           MaxValue = 255
  2847.           MinValue = 0
  2848.           ParentShowHint = False
  2849.           ShowHint = True
  2850.           TabOrder = 0
  2851.           Value = 120
  2852.         end
  2853.         object ThresPrev: TBitBtn
  2854.           Left = 206
  2855.           Top = 120
  2856.           Width = 89
  2857.           Height = 33
  2858.           Caption = 'Preview'
  2859.           Enabled = False
  2860.           TabOrder = 1
  2861.           OnClick = ThresPrevClick
  2862.           Style = bsNew
  2863.         end
  2864.         object ThresAnti: TCheckBox
  2865.           Left = 276
  2866.           Top = 63
  2867.           Width = 19
  2868.           Height = 17
  2869.           State = cbChecked
  2870.           TabOrder = 2
  2871.         end
  2872.         object ThresOnOk: TCheckBox
  2873.           Left = 203
  2874.           Top = 159
  2875.           Width = 97
  2876.           Height = 17
  2877.           Caption = 'Threshold on OK'
  2878.           TabOrder = 3
  2879.           OnClick = ThresOnOkClick
  2880.         end
  2881.       end
  2882.     end
  2883.     object TPage
  2884.       Left = 0
  2885.       Top = 0
  2886.       Caption = 'Transitions'
  2887.       object GroupBox1: TGroupBox
  2888.         Left = 7
  2889.         Top = 10
  2890.         Width = 333
  2891.         Height = 200
  2892.         Caption = 'Transition Effects'
  2893.         TabOrder = 0
  2894.         IsControl = True
  2895.         object Label3: TLabel
  2896.           Left = 228
  2897.           Top = 148
  2898.           Width = 27
  2899.           Height = 13
  2900.           Caption = 'Delay'
  2901.         end
  2902.         object Label4: TLabel
  2903.           Left = 268
  2904.           Top = 149
  2905.           Width = 49
  2906.           Height = 13
  2907.           Caption = 'Thickness'
  2908.         end
  2909.         object FXN: TRadioButton
  2910.           Left = 227
  2911.           Top = 55
  2912.           Width = 85
  2913.           Height = 17
  2914.           Caption = 'None'
  2915.           Checked = True
  2916.           TabOrder = 0
  2917.           TabStop = True
  2918.           OnClick = FXTest
  2919.         end
  2920.         object FXH: TRadioButton
  2921.           Left = 227
  2922.           Top = 70
  2923.           Width = 85
  2924.           Height = 17
  2925.           Caption = 'Horizontal'
  2926.           TabOrder = 1
  2927.           OnClick = FXTest
  2928.         end
  2929.         object FXV: TRadioButton
  2930.           Left = 227
  2931.           Top = 85
  2932.           Width = 85
  2933.           Height = 17
  2934.           Caption = 'Vertical'
  2935.           TabOrder = 2
  2936.           OnClick = FXTest
  2937.         end
  2938.         object FXD: TRadioButton
  2939.           Left = 227
  2940.           Top = 100
  2941.           Width = 85
  2942.           Height = 17
  2943.           Caption = 'Diagonal'
  2944.           TabOrder = 3
  2945.           OnClick = FXTest
  2946.         end
  2947.         object FXS: TRadioButton
  2948.           Left = 227
  2949.           Top = 115
  2950.           Width = 85
  2951.           Height = 17
  2952.           Caption = 'Squares'
  2953.           TabOrder = 4
  2954.           OnClick = FXTest
  2955.         end
  2956.         object FXR: TRadioButton
  2957.           Left = 227
  2958.           Top = 130
  2959.           Width = 85
  2960.           Height = 17
  2961.           Caption = 'Rectangle'
  2962.           TabOrder = 5
  2963.           OnClick = FXTest
  2964.         end
  2965.         object FXDelay: TSpinEdit
  2966.           Left = 229
  2967.           Top = 165
  2968.           Width = 41
  2969.           Height = 22
  2970.           MaxValue = 100
  2971.           MinValue = 1
  2972.           TabOrder = 6
  2973.           Value = 15
  2974.         end
  2975.         object FXRowCol: TSpinEdit
  2976.           Left = 272
  2977.           Top = 165
  2978.           Width = 41
  2979.           Height = 22
  2980.           Increment = 2
  2981.           MaxValue = 20
  2982.           MinValue = 1
  2983.           TabOrder = 7
  2984.           Value = 4
  2985.         end
  2986.       end
  2987.     end
  2988.     object TPage
  2989.       Left = 0
  2990.       Top = 0
  2991.       Caption = 'Whirl Pool'
  2992.       object GroupBox11: TGroupBox
  2993.         Left = 7
  2994.         Top = 10
  2995.         Width = 333
  2996.         Height = 200
  2997.         Caption = 'Whirl Pool Image'
  2998.         TabOrder = 0
  2999.         IsControl = True
  3000.         object Label10: TLabel
  3001.           Left = 219
  3002.           Top = 88
  3003.           Width = 45
  3004.           Height = 13
  3005.           Caption = 'Value = 0'
  3006.         end
  3007.         object Label64: TLabel
  3008.           Left = 9
  3009.           Top = 164
  3010.           Width = 140
  3011.           Height = 13
  3012.           Caption = 'Drag Mouse to select an area'
  3013.         end
  3014.         object Whir: TBitBtn
  3015.           Left = 206
  3016.           Top = 144
  3017.           Width = 89
  3018.           Height = 33
  3019.           Caption = 'Preview'
  3020.           TabOrder = 0
  3021.           OnClick = WhirClick
  3022.           Style = bsNew
  3023.         end
  3024.         object WhirlBar: TScrollBar
  3025.           Left = 180
  3026.           Top = 108
  3027.           Width = 135
  3028.           Height = 11
  3029.           Hint = 'Value'
  3030.           Max = 1000
  3031.           ParentShowHint = False
  3032.           ShowHint = True
  3033.           TabOrder = 1
  3034.           OnChange = WhirlBarChange
  3035.         end
  3036.       end
  3037.     end
  3038.     object TPage
  3039.       Left = 0
  3040.       Top = 0
  3041.       Caption = 'Wave Image'
  3042.       object GroupBox12: TGroupBox
  3043.         Left = 7
  3044.         Top = 10
  3045.         Width = 333
  3046.         Height = 200
  3047.         Caption = 'Wave The Image'
  3048.         TabOrder = 0
  3049.         IsControl = True
  3050.         object Label111: TLabel
  3051.           Left = 192
  3052.           Top = 74
  3053.           Width = 30
  3054.           Height = 13
  3055.           Caption = 'Phase'
  3056.         end
  3057.         object Label11: TLabel
  3058.           Left = 252
  3059.           Top = 74
  3060.           Width = 61
  3061.           Height = 13
  3062.           Caption = 'Wave length'
  3063.         end
  3064.         object Label12: TLabel
  3065.           Left = 192
  3066.           Top = 109
  3067.           Width = 46
  3068.           Height = 13
  3069.           Caption = 'Amplitude'
  3070.         end
  3071.         object Label65: TLabel
  3072.           Left = 9
  3073.           Top = 164
  3074.           Width = 140
  3075.           Height = 13
  3076.           Caption = 'Drag Mouse to select an area'
  3077.         end
  3078.         object Wave: TBitBtn
  3079.           Left = 193
  3080.           Top = 148
  3081.           Width = 89
  3082.           Height = 29
  3083.           Caption = 'Preview'
  3084.           Enabled = False
  3085.           TabOrder = 0
  3086.           OnClick = WaveClick
  3087.           Style = bsNew
  3088.         end
  3089.         object Phase: TSpinEdit
  3090.           Left = 192
  3091.           Top = 87
  3092.           Width = 57
  3093.           Height = 22
  3094.           Hint = 'How many phases'
  3095.           MaxValue = 360
  3096.           MinValue = 0
  3097.           ParentShowHint = False
  3098.           ShowHint = True
  3099.           TabOrder = 1
  3100.           Value = 0
  3101.         end
  3102.         object WaveL: TSpinEdit
  3103.           Left = 256
  3104.           Top = 87
  3105.           Width = 57
  3106.           Height = 22
  3107.           MaxValue = 200
  3108.           MinValue = 0
  3109.           TabOrder = 2
  3110.           Value = 20
  3111.         end
  3112.         object Amp: TSpinEdit
  3113.           Left = 192
  3114.           Top = 123
  3115.           Width = 57
  3116.           Height = 22
  3117.           Hint = 'Value of the amplitute'
  3118.           MaxValue = 200
  3119.           MinValue = 0
  3120.           ParentShowHint = False
  3121.           ShowHint = True
  3122.           TabOrder = 3
  3123.           Value = 50
  3124.         end
  3125.         object Refl: TCheckBox
  3126.           Left = 252
  3127.           Top = 115
  3128.           Width = 66
  3129.           Height = 17
  3130.           Hint = 'Reflective waves or just distorting'
  3131.           Caption = 'Reflection'
  3132.           ParentShowHint = False
  3133.           ShowHint = True
  3134.           TabOrder = 4
  3135.         end
  3136.         object Smear: TCheckBox
  3137.           Left = 252
  3138.           Top = 130
  3139.           Width = 56
  3140.           Height = 17
  3141.           Hint = 'Smear the edges out'
  3142.           Caption = 'Smear'
  3143.           ParentShowHint = False
  3144.           ShowHint = True
  3145.           State = cbChecked
  3146.           TabOrder = 5
  3147.         end
  3148.         object OnOk: TCheckBox
  3149.           Left = 192
  3150.           Top = 179
  3151.           Width = 113
  3152.           Height = 17
  3153.           Hint = 'Wave on Ok'
  3154.           Caption = 'Wave on Ok'
  3155.           ParentShowHint = False
  3156.           ShowHint = True
  3157.           TabOrder = 6
  3158.           OnClick = OnOkClick
  3159.         end
  3160.       end
  3161.     end
  3162.   end
  3163.   object Timer1: TTimer
  3164.     OnTimer = Timer1Timer
  3165.     Left = 290
  3166.     Top = 65535
  3167.   end
  3168.   object CD1: TColorDialog
  3169.     Ctl3D = True
  3170.     Color = clBtnFace
  3171.     Left = 317
  3172.     Top = 65535
  3173.   end
  3174. end
  3175.